﻿Public Class frmValidacion


    Private Sub btnIniciarSesion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciarSesion.Click


        Try
            Dim valores As New SistemaCajas.BE.Usuarios
            Dim valoresSQL As New SistemaCajas.DS.Validacion


            valores.NombreUsuario = txtNombreUsuario.Text
            valores.Contraseña = txtContraseña.Text

            If valoresSQL.Validar(valores) = True Then
                Dim formularioPrincipal As New FormularioPrincipal
                formularioPrincipal.Show()
                Me.Hide()
            Else
                MsgBox("Nombre de Usuario,Contraseña Invalida o Perfil inabilitado")
                txtContraseña.Clear()
            End If
        Catch ex As Exception
            MsgBox("Imposible Iniciar Sesión")
        End Try
    End Sub


End Class
